www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\inc\ND_ajax_get_post_var_to_label.asp

    
<%
strUrl=""
v=Request.Form 
t=Request.Form.Count 

redim axx(t+1)
redim bxx(t+1)
For i=0 To t-1
axx(i)=Split(Split(v,"&")(i),"=")(0) 
bxx(i)=replace_huanhangz(UrlEncoding_x(Split(Split(v,"&")(i),"=")(1)))
Next 

For i=0 To t-1 

Fy_Url1=Request.ServerVariables("QUERY_STRING")
Fy_a1=split(Fy_Url1,"&")
hav_chff=0
for Fy_x1=0 to ubound(Fy_a1)
Fy_Cs_name= left(Fy_a1(Fy_x1),instr(Fy_a1(Fy_x1),"=")-1)
if trim(lcase(Fy_Cs_name))=trim(lcase(axx(i))) then
hav_chff=1
exit for
end if
Next

if hav_chff=0 then
strUrl=strUrl&axx(i)&"="&bxx(i)&"&"
end if
Next 


'-------

%>